90 add

currentscreen pop exch pop

currentscreen pop pop

^0 ^1 ^2 setscreen